; 递归求平方
(defun show-squares (i end)
	(if (> i end)
		'done
		(progn
			(format t "~A ~A~%" i (* i i))
			(show-squares (* i i) end))))

(show-squares 2 100000000000000000000000000000000000000000000000)

